home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / takeout.prg < prev    next >
Encoding:
Text File  |  1994-07-10  |  47.8 KB  |  1,755 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. SET STATUS BAR ON
  5. CLOSE DATABASES
  6. new = FCREATE("RMXDTA.TXT")
  7. bio = FCREATE("bioinfo.txt")
  8. handle = FOPEN("NAME.dat")
  9. Count = 0
  10.  
  11. =SYS(2017)
  12. ? 'Starting Program Takeout'
  13. ? 'Records processed:'
  14.  
  15.  
  16. DO WHILE (NOT FEOF(handle))
  17.  
  18.     Count = Count + 1
  19.     Region = FREAD(handle, 2)
  20.     Office = FREAD(handle, 3)
  21.     Number = FREAD(handle, 3)
  22.     =FSEEK(handle, 4, 1)
  23.     Unique = FREAD(handle,8)
  24.     
  25.     M.Index = 2
  26.     
  27.     Last = ' ' 
  28.     Char = ' '
  29.     STOP = .F.
  30.     
  31.     DO WHILE Char != ',' AND M.Index <=30 AND STOP=.F.
  32.         Char = FREAD(handle, 1)
  33.         M.Index = M.Index +1
  34.         IF Char = ','
  35.             Char = ' '
  36.             STOP = .T.
  37.         ENDIF
  38.         Last = Last + Char
  39.         
  40.     ENDDO
  41.     
  42.     Char = ','
  43.     First = ' '
  44.     =FSEEK(handle, 1, 1)    
  45.  
  46.     DO WHILE Char != ' ' AND M.Index <=30
  47.         Char = FREAD(handle, 1)
  48.         M.Index = M.Index +1
  49.         First = First + Char
  50.     ENDDO
  51.  
  52.     Middle = FREAD(handle, 31-Index)
  53.     Last = ALLTRIM(Last)    
  54.     First = ALLTRIM(First)
  55.     Middle = ALLTRIM(Middle)
  56.     Nick = FREAD(handle, 20)
  57.     Title = FREAD(handle, 2)
  58.     Posistion = FREAD(handle, 30)
  59.     Spec1 = FREAD(handle, 3)
  60.     Spec2 = FREAD(handle, 3)
  61.     Lang1 = FREAD(handle, 20)
  62.     Lang2 = FREAD(handle, 20)
  63.     Lang3 = FREAD(handle, 20)
  64.     License = FREAD(handle, 4)
  65.     Join = FREAD(handle, 4)
  66.     Sales = FREAD(handle, 6)
  67.     Desig1 = FREAD(handle, 6)
  68.     Desig2 = FREAD(handle, 6)
  69.     Desig3 = FREAD(handle, 6)
  70.     Desig4 = FREAD(handle, 6)
  71.     Desig5 = FREAD(handle, 6)
  72.     Desig6 = FREAD(handle, 6)
  73.     Club = FREAD(handle, 4)
  74.     ROF = FREAD(handle, 12)
  75.     Comm1 = UPPER(FREAD(handle, 1))
  76.     Comm2 = UPPER(FREAD(handle, 1))
  77.     Comm3 = UPPER(FREAD(handle, 1))
  78.     Comm4 = UPPER(FREAD(handle, 1))
  79.     Comm5 = UPPER(FREAD(handle, 1))
  80.     skip = FSEEK(handle, 5, 1)
  81.     OffName = FREAD(handle, 30)
  82.     OffAdd1 = FREAD(handle, 30)
  83.     OffAdd2 = FREAD(handle, 30)
  84.     City = FREAD(handle, 17)
  85.     State = FREAD(handle, 2)
  86.     Zip = FREAD(handle, 10)
  87.     Country = FREAD(handle, 20)
  88.     Phone1 = FREAD(handle, 12)
  89.     Phone2 = FREAD(handle, 12)
  90.     Phone3 = FREAD(handle, 12)
  91.     Phone4 = FREAD(handle, 12)
  92.     FAX = FREAD(handle, 12)
  93.     Service1 = FREAD(handle, 20)
  94.     Service2 = FREAD(handle, 20)
  95.     Service3 = FREAD(handle, 20)
  96.     Service4 = FREAD(handle, 20)
  97.     Open = FREAD(handle, 6)
  98.     ADI = FREAD(handle, 20)
  99.     Page = FREAD(handle, 4)
  100.     Coor = FREAD(handle, 2)
  101.     OffType = FREAD(handle, 2)
  102.     CityOver = FREAD(handle, 17)
  103.     RosterSta = FREAD(handle, 30)
  104.     Rams = FREAD(handle, 15)
  105.     Achiev = FREAD(handle, 20)
  106.     COMPUSERV = FREAD(handle, 17)
  107.  
  108. * START READING BIO INFO    
  109.  
  110.     PhoneLoc = FREAD(handle, 12)
  111.     HomePhone = FREAD(handle, 12)
  112.     AgntFax = FREAD(handle, 12)
  113.     AgntPager = FREAD(handle, 12)
  114.     AgntMobile = FREAD(handle, 12)
  115.     CIVIC1 = UPPER(FREAD(handle, 4))
  116.     CIVIC2 = UPPER(FREAD(handle, 4))
  117.     CIVIC3 = UPPER(FREAD(handle, 4))
  118.     HOBBY1 = UPPER(FREAD(handle, 4))
  119.     HOBBY2 = UPPER(FREAD(handle, 4))
  120.     HOBBY3 = UPPER(FREAD(handle, 4))
  121.     MEMBER1 = FREAD(handle, 4)
  122.     MEMBER2 = FREAD(handle, 4)
  123.     MEMBER3 = FREAD(handle, 4)
  124.     Service1 = FREAD(handle, 20)
  125.     Service2 = FREAD(handle, 20)
  126.     Service3 = FREAD(handle, 20)
  127.     Service4 = FREAD(handle, 20)
  128.     Service5 = FREAD(handle, 20)
  129.     Education = FREAD(handle, 15)
  130.     Desig1 = FREAD(handle, 10)
  131.     Desig2 = FREAD(handle, 10)
  132.     Desig3 = FREAD(handle, 10)
  133.     Career = FREAD(handle, 40)
  134.     Price_fr = FREAD(handle, 12)
  135.     Price_to = FREAD(handle, 12)
  136.     Pref = FREAD(handle, 1)
  137.     Referal1 = FREAD(handle, 1)
  138.     Referal2 = FREAD(handle, 1)
  139.     Referal3 = FREAD(handle, 1)
  140.     Referal4 = FREAD(handle, 1)
  141.     ERCPaper = FREAD(handle, 1)
  142.     Welcomekit = FREAD(handle, 1)
  143.     Relocations = FREAD(handle, 5)
  144.     Picture = FREAD(handle, 1)
  145.     EntryDate = FREAD(handle, 6)
  146.     BioSubs = FREAD(handle, 10)
  147.     Info = FGETS(handle, 480)
  148.     
  149. * START WRITING TO "new"
  150.     
  151.     =FWRITE(new, Region+',')
  152.     =FWRITE(new, Office+',')
  153.     =FWRITE(new, Number+',')
  154.     =FWRITE(new, Unique+',')
  155.     =FWRITE(new, ALLTRIM('"'+Last+', '+First+' '+Middle+'",'))
  156.     
  157.     IF NOT EMPTY(Last)
  158.         =FWRITE(new, '"'+Last+'",')
  159.     ELSE
  160.         =FWRITE(new, ',')
  161.     ENDIF
  162.     
  163.     IF NOT EMPTY(First)
  164.         =FWRITE(new, '"'+First+'",')
  165.     ELSE
  166.         =FWRITE(new, ',')
  167.     ENDIF
  168.  
  169.     IF NOT EMPTY(Middle))
  170.         =FWRITE(new, '"'+Middle+'",')
  171.     ELSE
  172.         =FWRITE(new, ',')
  173.     ENDIF
  174.     
  175.     IF NOT EMPTY(TRIM(Nick))
  176.         =FWRITE(new, '"'+TRIM(Nick)+'",')
  177.     ELSE
  178.         =FWRITE(new, ',')
  179.     ENDIF
  180.  
  181.     IF NOT EMPTY(TRIM(Title))
  182.         =FWRITE(new, '"'+ALLTRIM(Title)+'",')
  183.     ELSE
  184.         =FWRITE(new, ',')
  185.     ENDIF
  186.  
  187.     IF NOT EMPTY(TRIM(Posistion))
  188.         =FWRITE(new, '"'+TRIM(Posistion)+'",')
  189.     ELSE
  190.         =FWRITE(new, ',')
  191.     ENDIF
  192.     
  193.     IF NOT EMPTY(TRIM(Spec1))
  194.         =FWRITE(new, '"'+TRIM(Spec1)+'",')
  195.     ELSE
  196.         =FWRITE(new, ',')
  197.     ENDIF
  198.         
  199.     IF NOT EMPTY(TRIM(Spec2))
  200.         =FWRITE(new, '"'+TRIM(Spec2)+'",')
  201.     ELSE
  202.         =FWRITE(new, ',')
  203.     ENDIF
  204.         
  205.     IF NOT EMPTY(TRIM(Lang1))
  206.         =FWRITE(new, '"'+TRIM(Lang1)+'",')
  207.     ELSE
  208.         =FWRITE(new, ',')
  209.     ENDIF
  210.         
  211.     IF NOT EMPTY(TRIM(Lang2))
  212.         =FWRITE(new, '"'+TRIM(Lang2)+'",')
  213.     ELSE
  214.         =FWRITE(new, ',')
  215.     ENDIF
  216.         
  217.     IF NOT EMPTY(TRIM(Lang3))
  218.         =FWRITE(new, '"'+TRIM(Lang3)+'",')
  219.     ELSE
  220.         =FWRITE(new, ',')
  221.     ENDIF
  222.         
  223.     IF NOT EMPTY(TRIM(License))
  224.         =FWRITE(new, TRIM(License)+',')
  225.     ELSE
  226.         =FWRITE(new, ',')
  227.     ENDIF
  228.         
  229.     IF NOT EMPTY(TRIM(Join))
  230.         =FWRITE(new, TRIM(Join)+',')
  231.     ELSE
  232.         =FWRITE(new, ',')
  233.     ENDIF
  234.         
  235.     IF NOT EMPTY(TRIM(Sales))
  236.         =FWRITE(new, TRIM(Sales)+',')
  237.     ELSE
  238.         =FWRITE(new, ',')
  239.     ENDIF
  240.         
  241.     IF NOT EMPTY(TRIM(Desig1))
  242.         =FWRITE(new, '"'+TRIM(Desig1)+'",')
  243.     ELSE
  244.         =FWRITE(new, ',')
  245.     ENDIF
  246.         
  247.     IF NOT EMPTY(TRIM(Desig2))
  248.         =FWRITE(new, '"'+TRIM(Desig2)+'",')
  249.     ELSE
  250.         =FWRITE(new, ',')
  251.     ENDIF
  252.  
  253.     IF NOT EMPTY(TRIM(Desig3))
  254.         =FWRITE(new, '"'+TRIM(Desig3)+'",')
  255.     ELSE
  256.         =FWRITE(new, ',')
  257.     ENDIF
  258.  
  259.     IF NOT EMPTY(TRIM(Desig4))
  260.         =FWRITE(new, '"'+TRIM(Desig4)+'",')
  261.     ELSE
  262.         =FWRITE(new, ',')
  263.     ENDIF
  264.  
  265.     IF NOT EMPTY(TRIM(Desig5))
  266.         =FWRITE(new, '"'+TRIM(Desig5)+'",')
  267.     ELSE
  268.         =FWRITE(new, ',')
  269.     ENDIF
  270.  
  271.     IF NOT EMPTY(TRIM(Desig6))
  272.         =FWRITE(new, '"'+TRIM(Desig6)+'",')
  273.     ELSE
  274.         =FWRITE(new, ',')
  275.     ENDIF
  276.  
  277.     IF NOT EMPTY(TRIM(Club))
  278.         =FWRITE(new, '"'+TRIM(Club)+'",')
  279.     ELSE
  280.         =FWRITE(new, ',')
  281.     ENDIF
  282.  
  283.     IF NOT EMPTY(TRIM(ROF))
  284.         =FWRITE(new, '"'+TRIM(ROF)+'",')
  285.     ELSE
  286.         =FWRITE(new, ',')
  287.     ENDIF
  288.  
  289.     IF NOT EMPTY(TRIM(Comm1))
  290.         DO CASE
  291.             CASE Comm1 == 'A'
  292.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  293.             CASE Comm1 == 'B'
  294.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  295.             CASE Comm1 == 'C'
  296.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  297.             CASE Comm1 == 'D'
  298.                 =FWRITE(new, '"Business Opportunities",')
  299.             CASE Comm1 == 'E'
  300.                 =FWRITE(new, '"Condo Conversions",')
  301.             CASE Comm1 == 'F'
  302.                 =FWRITE(new, '"Development",')
  303.             CASE Comm1 == 'G'
  304.                 =FWRITE(new, '"Exchanging",')
  305.             CASE Comm1 == 'H'
  306.                 =FWRITE(new, '"Farm and Land",')
  307.             CASE Comm1 == 'I'
  308.                 =FWRITE(new, '"Foreign Investment Property",')
  309.             CASE Comm1 == 'J'
  310.                 =FWRITE(new, '"General Commercial",')
  311.             CASE Comm1 == 'K'
  312.                 =FWRITE(new, '"Health Care Faculties",')
  313.             CASE Comm1 == 'L'
  314.                 =FWRITE(new, '"Hotels/Motels",')
  315.             CASE Comm1 == 'M'
  316.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  317.             CASE Comm1 == 'N'
  318.                 =FWRITE(new, '"Leasing",')
  319.             CASE Comm1 == 'O'
  320.                 =FWRITE(new, '"Mobile Home Parks",')
  321.             CASE Comm1 == 'P'
  322.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  323.             CASE Comm1 == 'Q'
  324.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  325.             CASE Comm1 == 'R'
  326.                 =FWRITE(new, '"Other",')
  327.             CASE Comm1 == 'S'
  328.                 =FWRITE(new, '"Restaurant",')
  329.             CASE Comm1 == 'T'
  330.                 =FWRITE(new, '"Retirement Properties/Communities",')
  331.             CASE Comm1 == 'U'
  332.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  333.             CASE Comm1 == 'V'
  334.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  335.             CASE Comm1 == 'W'
  336.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  337.             CASE Comm1 == 'X'
  338.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  339.             CASE Comm1 == 'Y'
  340.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  341.             OTHERWISE
  342.                 =FWRITE(new, ',')
  343.         ENDCASE
  344.     ELSE
  345.         =FWRITE(new, ',')
  346.     ENDIF
  347.  
  348.     IF NOT EMPTY(TRIM(Comm2))
  349.         DO CASE
  350.             CASE Comm2 == 'A'
  351.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  352.             CASE Comm2 == 'B'
  353.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  354.             CASE Comm2 == 'C'
  355.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  356.             CASE Comm2 == 'D'
  357.                 =FWRITE(new, '"Business Opportunities",')
  358.             CASE Comm2 == 'E'
  359.                 =FWRITE(new, '"Condo Conversions",')
  360.             CASE Comm2 == 'F'
  361.                 =FWRITE(new, '"Development",')
  362.             CASE Comm2 == 'G'
  363.                 =FWRITE(new, '"Exchanging",')
  364.             CASE Comm2 == 'H'
  365.                 =FWRITE(new, '"Farm and Land",')
  366.             CASE Comm2 == 'I'
  367.                 =FWRITE(new, '"Foreign Investment Property",')
  368.             CASE Comm2 == 'J'
  369.                 =FWRITE(new, '"General Commercial",')
  370.             CASE Comm2 == 'K'
  371.                 =FWRITE(new, '"Health Care Faculties",')
  372.             CASE Comm2 == 'L'
  373.                 =FWRITE(new, '"Hotels/Motels",')
  374.             CASE Comm2 == 'M'
  375.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  376.             CASE Comm2 == 'N'
  377.                 =FWRITE(new, '"Leasing",')
  378.             CASE Comm2 == 'O'
  379.                 =FWRITE(new, '"Mobile Home Parks",')
  380.             CASE Comm2 == 'P'
  381.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  382.             CASE Comm2 == 'Q'
  383.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  384.             CASE Comm2 == 'R'
  385.                 =FWRITE(new, '"Other",')
  386.             CASE Comm2 == 'S'
  387.                 =FWRITE(new, '"Restaurant",')
  388.             CASE Comm2 == 'T'
  389.                 =FWRITE(new, '"Retirement Properties/Communities",')
  390.             CASE Comm2 == 'U'
  391.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  392.             CASE Comm2 == 'V'
  393.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  394.             CASE Comm2 == 'W'
  395.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  396.             CASE Comm2 == 'X'
  397.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  398.             CASE Comm2 == 'Y'
  399.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  400.             OTHERWISE
  401.                 =FWRITE(new, ',')
  402.         ENDCASE
  403.     ELSE
  404.         =FWRITE(new, ',')
  405.     ENDIF
  406.  
  407.     IF NOT EMPTY(TRIM(Comm3))
  408.         DO CASE
  409.             CASE Comm3 == 'A'
  410.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  411.             CASE Comm3 == 'B'
  412.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  413.             CASE Comm3 == 'C'
  414.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  415.             CASE Comm3 == 'D'
  416.                 =FWRITE(new, '"Business Opportunities",')
  417.             CASE Comm3 == 'E'
  418.                 =FWRITE(new, '"Condo Conversions",')
  419.             CASE Comm3 == 'F'
  420.                 =FWRITE(new, '"Development",')
  421.             CASE Comm3 == 'G'
  422.                 =FWRITE(new, '"Exchanging",')
  423.             CASE Comm3 == 'H'
  424.                 =FWRITE(new, '"Farm and Land",')
  425.             CASE Comm3 == 'I'
  426.                 =FWRITE(new, '"Foreign Investment Property",')
  427.             CASE Comm3 == 'J'
  428.                 =FWRITE(new, '"General Commercial",')
  429.             CASE Comm3 == 'K'
  430.                 =FWRITE(new, '"Health Care Faculties",')
  431.             CASE Comm3 == 'L'
  432.                 =FWRITE(new, '"Hotels/Motels",')
  433.             CASE Comm3 == 'M'
  434.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  435.             CASE Comm3 == 'N'
  436.                 =FWRITE(new, '"Leasing",')
  437.             CASE Comm3 == 'O'
  438.                 =FWRITE(new, '"Mobile Home Parks",')
  439.             CASE Comm3 == 'P'
  440.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  441.             CASE Comm3 == 'Q'
  442.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  443.             CASE Comm3 == 'R'
  444.                 =FWRITE(new, '"Other",')
  445.             CASE Comm3 == 'S'
  446.                 =FWRITE(new, '"Restaurant",')
  447.             CASE Comm3 == 'T'
  448.                 =FWRITE(new, '"Retirement Properties/Communities",')
  449.             CASE Comm3 == 'U'
  450.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  451.             CASE Comm3 == 'V'
  452.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  453.             CASE Comm3 == 'W'
  454.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  455.             CASE Comm3 == 'X'
  456.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  457.             CASE Comm3 == 'Y'
  458.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  459.             OTHERWISE
  460.                 =FWRITE(new, ',')
  461.         ENDCASE
  462.     ELSE
  463.         =FWRITE(new, ',')
  464.     ENDIF
  465.  
  466.     IF NOT EMPTY(TRIM(Comm4))
  467.         DO CASE
  468.             CASE Comm4 == 'A'
  469.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  470.             CASE Comm4 == 'B'
  471.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  472.             CASE Comm4 == 'C'
  473.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  474.             CASE Comm4 == 'D'
  475.                 =FWRITE(new, '"Business Opportunities",')
  476.             CASE Comm4 == 'E'
  477.                 =FWRITE(new, '"Condo Conversions",')
  478.             CASE Comm4 == 'F'
  479.                 =FWRITE(new, '"Development",')
  480.             CASE Comm4 == 'G'
  481.                 =FWRITE(new, '"Exchanging",')
  482.             CASE Comm4 == 'H'
  483.                 =FWRITE(new, '"Farm and Land",')
  484.             CASE Comm4 == 'I'
  485.                 =FWRITE(new, '"Foreign Investment Property",')
  486.             CASE Comm4 == 'J'
  487.                 =FWRITE(new, '"General Commercial",')
  488.             CASE Comm4 == 'K'
  489.                 =FWRITE(new, '"Health Care Faculties",')
  490.             CASE Comm4 == 'L'
  491.                 =FWRITE(new, '"Hotels/Motels",')
  492.             CASE Comm4 == 'M'
  493.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  494.             CASE Comm4 == 'N'
  495.                 =FWRITE(new, '"Leasing",')
  496.             CASE Comm4 == 'O'
  497.                 =FWRITE(new, '"Mobile Home Parks",')
  498.             CASE Comm4 == 'P'
  499.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  500.             CASE Comm4 == 'Q'
  501.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  502.             CASE Comm4 == 'R'
  503.                 =FWRITE(new, '"Other",')
  504.             CASE Comm4 == 'S'
  505.                 =FWRITE(new, '"Restaurant",')
  506.             CASE Comm4 == 'T'
  507.                 =FWRITE(new, '"Retirement Properties/Communities",')
  508.             CASE Comm4 == 'U'
  509.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  510.             CASE Comm4 == 'V'
  511.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  512.             CASE Comm4 == 'W'
  513.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  514.             CASE Comm4 == 'X'
  515.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  516.             CASE Comm4 == 'Y'
  517.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  518.             OTHERWISE
  519.                 =FWRITE(new, ',')
  520.         ENDCASE
  521.     ELSE
  522.         =FWRITE(new, ',')
  523.     ENDIF
  524.  
  525.     IF NOT EMPTY(TRIM(Comm5))
  526.         DO CASE
  527.             CASE Comm5 == 'A'
  528.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  529.             CASE Comm5 == 'B'
  530.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  531.             CASE Comm5 == 'C'
  532.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  533.             CASE Comm5 == 'D'
  534.                 =FWRITE(new, '"Business Opportunities",')
  535.             CASE Comm5 == 'E'
  536.                 =FWRITE(new, '"Condo Conversions",')
  537.             CASE Comm5 == 'F'
  538.                 =FWRITE(new, '"Development",')
  539.             CASE Comm5 == 'G'
  540.                 =FWRITE(new, '"Exchanging",')
  541.             CASE Comm5 == 'H'
  542.                 =FWRITE(new, '"Farm and Land",')
  543.             CASE Comm5 == 'I'
  544.                 =FWRITE(new, '"Foreign Investment Property",')
  545.             CASE Comm5 == 'J'
  546.                 =FWRITE(new, '"General Commercial",')
  547.             CASE Comm5 == 'K'
  548.                 =FWRITE(new, '"Health Care Faculties",')
  549.             CASE Comm5 == 'L'
  550.                 =FWRITE(new, '"Hotels/Motels",')
  551.             CASE Comm5 == 'M'
  552.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  553.             CASE Comm5 == 'N'
  554.                 =FWRITE(new, '"Leasing",')
  555.             CASE Comm5 == 'O'
  556.                 =FWRITE(new, '"Mobile Home Parks",')
  557.             CASE Comm5 == 'P'
  558.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  559.             CASE Comm5 == 'Q'
  560.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  561.             CASE Comm5 == 'R'
  562.                 =FWRITE(new, '"Other",')
  563.             CASE Comm5 == 'S'
  564.                 =FWRITE(new, '"Restaurant",')
  565.             CASE Comm5 == 'T'
  566.                 =FWRITE(new, '"Retirement Properties/Communities",')
  567.             CASE Comm5 == 'U'
  568.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  569.             CASE Comm5 == 'V'
  570.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  571.             CASE Comm5 == 'W'
  572.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  573.             CASE Comm5 == 'X'
  574.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  575.             CASE Comm5 == 'Y'
  576.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  577.             OTHERWISE
  578.                 =FWRITE(new, ',')
  579.         ENDCASE
  580.     ELSE
  581.         =FWRITE(new, ',')
  582.     ENDIF
  583.  
  584.     IF NOT EMPTY(TRIM(OffName))
  585.         =FWRITE(new, '"'+TRIM(OffName)+'",')
  586.     ELSE
  587.         =FWRITE(new, ',')
  588.     ENDIF
  589.  
  590.     IF NOT EMPTY(TRIM(OffAdd1))
  591.         =FWRITE(new, '"'+TRIM(OffAdd1)+'",')
  592.     ELSE
  593.         =FWRITE(new, ',')
  594.     ENDIF
  595.  
  596.     IF NOT EMPTY(TRIM(OffAdd2))
  597.         =FWRITE(new, '"'+TRIM(OffAdd2)+'",')
  598.     ELSE
  599.         =FWRITE(new, ',')
  600.     ENDIF
  601.  
  602.     IF NOT EMPTY(TRIM(City))
  603.         =FWRITE(new, '"'+TRIM(City)+'",')
  604.     ELSE
  605.         =FWRITE(new, ',')
  606.     ENDIF
  607.  
  608.     IF NOT EMPTY(TRIM(State))
  609.         =FWRITE(new, '"'+UPPER(TRIM(State))+'",')
  610.     ELSE
  611.         =FWRITE(new, ',')
  612.     ENDIF
  613.  
  614.     IF NOT EMPTY(TRIM(Zip))
  615.         =FWRITE(new, '"'+TRIM(Zip)+'",')
  616.     ELSE
  617.         =FWRITE(new, ',')
  618.     ENDIF
  619.  
  620.     IF NOT EMPTY(TRIM(Country))
  621.         =FWRITE(new, '"'+TRIM(Country)+'",')
  622.     ELSE
  623.         =FWRITE(new, ',')
  624.     ENDIF
  625.  
  626.     IF NOT EMPTY(TRIM(Phone1))
  627.         =FWRITE(new, '"'+TRIM(Phone1)+'",')
  628.     ELSE
  629.         =FWRITE(new, ',')
  630.     ENDIF
  631.  
  632.     IF NOT EMPTY(TRIM(Phone2))
  633.         =FWRITE(new, '"'+TRIM(Phone2)+'",')
  634.     ELSE
  635.         =FWRITE(new, ',')
  636.     ENDIF
  637.  
  638.     IF NOT EMPTY(TRIM(Phone3))
  639.         =FWRITE(new, '"'+TRIM(Phone3)+'",')
  640.     ELSE
  641.         =FWRITE(new, ',')
  642.     ENDIF
  643.  
  644.     IF NOT EMPTY(TRIM(Phone4))
  645.         =FWRITE(new, '"'+TRIM(Phone4)+'",')
  646.     ELSE
  647.         =FWRITE(new, ',')
  648.     ENDIF
  649.  
  650.     IF NOT EMPTY(TRIM(FAX))
  651.         =FWRITE(new, '"'+TRIM(FAX)+'",')
  652.     ELSE
  653.         =FWRITE(new, ',')
  654.     ENDIF
  655.  
  656.     IF NOT EMPTY(TRIM(Picture))
  657.         =FWRITE(new, '"'+TRIM(Picture)+'",')
  658.     ELSE
  659.         =FWRITE(new, ',')
  660.     ENDIF        
  661.  
  662.     IF NOT EMPTY(TRIM(Service1))
  663.         =FWRITE(new, '"'+TRIM(Service1)+'",')
  664.     ELSE
  665.         =FWRITE(new, ',')
  666.     ENDIF
  667.  
  668.     IF NOT EMPTY(TRIM(Service2))
  669.         =FWRITE(new, '"'+TRIM(Service2)+'",')
  670.     ELSE
  671.         =FWRITE(new, ',')
  672.     ENDIF
  673.  
  674.     IF NOT EMPTY(TRIM(Service3))
  675.         =FWRITE(new, '"'+TRIM(Service3)+'",')
  676.     ELSE
  677.         =FWRITE(new, ',')
  678.     ENDIF
  679.  
  680.     IF NOT EMPTY(TRIM(Service4))
  681.         =FWRITE(new, '"'+TRIM(Service4)+'",')
  682.     ELSE
  683.         =FWRITE(new, ',')
  684.     ENDIF
  685.  
  686.     IF NOT EMPTY(TRIM(Open))
  687.         =FWRITE(new, TRIM(Open)+',')
  688.     ELSE
  689.         =FWRITE(new, ',')
  690.     ENDIF
  691.  
  692.     IF NOT EMPTY(TRIM(ADI))
  693.         =FWRITE(new, '"'+TRIM(ADI)+'",')
  694.     ELSE
  695.         =FWRITE(new, ',')
  696.     ENDIF
  697.  
  698.     IF NOT EMPTY(TRIM(Page))
  699.         =FWRITE(new, '"'+TRIM(Page)+'",')
  700.     ELSE
  701.         =FWRITE(new, ',')
  702.     ENDIF
  703.  
  704.     IF NOT EMPTY(TRIM(Coor))
  705.         =FWRITE(new, '"'+TRIM(Coor)+'",')
  706.     ELSE
  707.         =FWRITE(new, ',')
  708.     ENDIF
  709.  
  710.     IF NOT EMPTY(TRIM(OffType))
  711.         =FWRITE(new, TRIM(OffType)+',')
  712.     ELSE
  713.         =FWRITE(new, ',')
  714.     ENDIF
  715.  
  716.     IF NOT EMPTY(TRIM(CityOver))
  717.         =FWRITE(new, '"'+TRIM(CityOver)+'",')
  718.     ELSE
  719.         =FWRITE(new, ',')
  720.     ENDIF
  721.  
  722.     IF NOT EMPTY(TRIM(RosterSta))
  723.         =FWRITE(new, '"'+TRIM(RosterSta)+'",')
  724.     ELSE
  725.         =FWRITE(new, ',')
  726.     ENDIF
  727.  
  728.     IF NOT EMPTY(TRIM(Rams))
  729.         =FWRITE(new, '"'+TRIM(Rams)+'",')
  730.     ELSE
  731.         =FWRITE(new, ',')
  732.     ENDIF
  733.  
  734.     IF NOT EMPTY(TRIM(Achiev))
  735.         =FWRITE(new, '"ACHIEV: '+TRIM(Achiev)+'",')
  736.     ELSE
  737.         =FWRITE(new, ',')
  738.     ENDIF
  739.  
  740.     IF NOT EMPTY(TRIM(COMPUSERV))
  741.         =FWRITE(new, ALLTRIM(COMPUSERV)+',')
  742.     ELSE
  743.         =FWRITE(new, ',')
  744.     ENDIF
  745.     
  746.     IF UPPER(ALLTRIM(PICTURE)) = 'Y'
  747.         =FWRITE(new, '"Bio Info",')
  748.     ELSE
  749.         =FWRITE(new, ',')
  750.     ENDIF
  751.     
  752.     =FPUTS(new, ALLTRIM(STR(Count)) + ',')
  753.     
  754. *    IF NOT EMPTY(TRIM(PICTURE))
  755.         IF PICTURE == 'Y'
  756.  
  757.             =FWRITE(bio, Unique+',')
  758.             
  759.             IF NOT EMPTY(TRIM(PhoneLoc))
  760.                 =FWRITE(bio, '"'+TRIM(PhoneLoc)+'",')
  761.             ELSE
  762.                 =FWRITE(bio, ',')
  763.             ENDIF
  764.             
  765.             IF NOT EMPTY(TRIM(HomePhone))
  766.                 =FWRITE(bio, '"'+TRIM(HomePhone)+'",')
  767.             ELSE
  768.                 =FWRITE(bio, ',')
  769.             ENDIF
  770.             
  771.             IF NOT EMPTY(TRIM(AgntFax))
  772.                 =FWRITE(bio, '"'+TRIM(AgntFax)+'",')
  773.             ELSE
  774.                 =FWRITE(bio, ',')
  775.             ENDIF
  776.             
  777.             IF NOT EMPTY(TRIM(AgntPager))
  778.                 =FWRITE(bio, '"'+TRIM(AgntPager)+'",')
  779.             ELSE
  780.                 =FWRITE(bio, ',')
  781.             ENDIF
  782.                 
  783.             IF NOT EMPTY(TRIM(AgntMobile))
  784.                 =FWRITE(bio, '"'+TRIM(AgntMobile)+'",')
  785.              ELSE
  786.                  =FWRITE(bio, ',')
  787.              ENDIF
  788.                  
  789.              IF NOT EMPTY(TRIM(CIVIC1))
  790.                 DO CASE                 
  791.                     CASE CIVIC1 == 'AGED'
  792.                         =FWRITE(bio, '"Aged Volunteer",')
  793.                     CASE CIVIC1 == 'ALCO'
  794.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  795.                     CASE CIVIC1 == 'ARMD'
  796.                         =FWRITE(bio, '"Armed Forces Reserves",')
  797.                     CASE CIVIC1 == 'BATT'
  798.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  799.                     CASE CIVIC1 == 'BGCL'
  800.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  801.                     CASE CIVIC1 == 'BGSC'
  802.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  803.                     CASE CIVIC1 == 'BOAR'
  804.                         =FWRITE(bio, '"Board of Realtors",')
  805.                     CASE CIVIC1 == 'BUSW'
  806.                         =FWRITE(bio, '"Businesswomens Clubs",')
  807.                     CASE CIVIC1 == 'CANC'
  808.                         =FWRITE(bio, '"Cancer Society",')
  809.                     CASE CIVIC1 == 'CARE'
  810.                         =FWRITE(bio, '"CARES",')
  811.                     CASE CIVIC1 == 'CIVI'
  812.                         =FWRITE(bio, '"Civic Activities",')
  813.                     CASE CIVIC1 == 'CF  '
  814.                         =FWRITE(bio, '"Cystic Fibrosis",')
  815.                     CASE CIVIC1 == 'CCJC'
  816.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  817.                     CASE CIVIC1 == 'CHSC'
  818.                         =FWRITE(bio, '"Church/School Volunteer",')
  819.                     CASE CIVIC1 == 'CMN '
  820.                         =FWRITE(bio, '"Childrens Miracle Network",')
  821.                     CASE CIVIC1 == 'COAC'
  822.                         =FWRITE(bio, '"Coach Volunteer",')
  823.                     CASE CIVIC1 == 'COLL'
  824.                         =FWRITE(bio, '"College/Frat Alumni",')
  825.                     CASE CIVIC1 == 'COMM'
  826.                         =FWRITE(bio, '"Community Economic Devmt",')
  827.                     CASE CIVIC1 == 'CRSB'
  828.                         =FWRITE(bio, '"CRS/CRB",')
  829.                     CASE CIVIC1 == 'DELQ'
  830.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  831.                     CASE CIVIC1 == 'EAST'
  832.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  833.                     CASE CIVIC1 == 'EEMC'
  834.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  835.                     CASE CIVIC1 == 'ENVR'
  836.                         =FWRITE(bio, '"Environmental Concerns",')
  837.                     CASE CIVIC1 == 'FOST'
  838.                         =FWRITE(bio, '"Foster Care/Adoption",')
  839.                     CASE CIVIC1 == 'GRPE'
  840.                         =FWRITE(bio, '"Green Peace",')
  841.                     CASE CIVIC1 == 'HOBL'
  842.                         =FWRITE(bio, '"Home Builders",')
  843.                     CASE CIVIC1 == 'HOLS'
  844.                         =FWRITE(bio, '"Homeless",')
  845.                     CASE CIVIC1 == 'HOME'
  846.                         =FWRITE(bio, '"Home Owners Association",')
  847.                     CASE CIVIC1 == 'HOSP'
  848.                         =FWRITE(bio, '"Hospital Volunteer",')
  849.                     CASE CIVIC1 == 'HUMA'
  850.                         =FWRITE(bio, '"Humane Society",')
  851.                     CASE CIVIC1 == 'JRLG'
  852.                         =FWRITE(bio, '"Jr. League",')
  853.                     CASE CIVIC1 == 'KIWA'
  854.                         =FWRITE(bio, '"Kiwanis",')
  855.                     CASE CIVIC1 == 'KNCO'
  856.                         =FWRITE(bio, '"Knights of Columbus",')
  857.                     CASE CIVIC1 == 'LION'
  858.                         =FWRITE(bio, '"Lions Clubs",')
  859.                     CASE CIVIC1 == 'LITL'
  860.                         =FWRITE(bio, '"Little League",')
  861.                     CASE CIVIC1 == 'MAKE'
  862.                         =FWRITE(bio, '"Make-A-Wish",')
  863.                     CASE CIVIC1 == 'MASO'
  864.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  865.                     CASE CIVIC1 == 'MEAL'
  866.                         =FWRITE(bio, '"Meals on Wheels",')
  867.                     CASE CIVIC1 == 'MEDL'
  868.                         =FWRITE(bio, '"Medical Auxillary",')
  869.                     CASE CIVIC1 == 'MS  '
  870.                         =FWRITE(bio, '"Multiple Sclerosis",')
  871.                     CASE CIVIC1 == 'OPT '
  872.                         =FWRITE(bio, '"Optimist",')
  873.                     CASE CIVIC1 == 'PTAO'
  874.                         =FWRITE(bio, '"PTA/PTO",')
  875.                     CASE CIVIC1 == 'POLI'
  876.                         =FWRITE(bio, '"Politics/Political Clubs",')
  877.                     CASE CIVIC1 == 'REDC'
  878.                         =FWRITE(bio, '"Red Cross",')
  879.                     CASE CIVIC1 == 'RETD'
  880.                         =FWRITE(bio, '"Retarded People",')
  881.                     CASE CIVIC1 == 'RONM'
  882.                         =FWRITE(bio, '"Ronald McDonald House",')
  883.                     CASE CIVIC1 == 'ROTY'
  884.                         =FWRITE(bio, '"Rotary",')
  885.                     CASE CIVIC1 == 'SADD'
  886.                         =FWRITE(bio, '"SADD/MADD",')
  887.                     CASE CIVIC1 == 'SIER'
  888.                         =FWRITE(bio, '"Sierra Club",')
  889.                     CASE CIVIC1 == 'SPOL'
  890.                         =FWRITE(bio, '"Special Olympics",')
  891.                     CASE CIVIC1 == 'STDY'
  892.                         =FWRITE(bio, '"Study Club",')
  893.                     CASE CIVIC1 == 'TOAS'
  894.                         =FWRITE(bio, '"Toastmasters",')
  895.                     CASE CIVIC1 == 'UNIT'
  896.                         =FWRITE(bio, '"United Way",')
  897.                     CASE CIVIC1 == 'VF  '
  898.                         =FWRITE(bio, '"VFW/Am Legion",')
  899.                     CASE CIVIC1 == 'WC  '
  900.                         =FWRITE(bio, '"Womens Council of Realtors",')
  901.                     CASE CIVIC1 == 'YMCA'
  902.                         =FWRITE(bio, '"YMCA/YWCA",')
  903.                       OTHERWISE
  904.                           =FWRITE(bio, ',')
  905.                   ENDCASE
  906.               ELSE
  907.                 =FWRITE(bio, ',')
  908.               ENDIF    
  909.  
  910.  
  911.              IF NOT EMPTY(TRIM(CIVIC2))
  912.                 DO CASE                 
  913.                     CASE CIVIC2 == 'AGED'
  914.                         =FWRITE(bio, '"Aged Volunteer",')
  915.                     CASE CIVIC2 == 'ALCO'
  916.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  917.                     CASE CIVIC2 == 'ARMD'
  918.                         =FWRITE(bio, '"Armed Forces Reserves",')
  919.                     CASE CIVIC2 == 'BATT'
  920.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  921.                     CASE CIVIC2 == 'BGCL'
  922.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  923.                     CASE CIVIC2 == 'BGSC'
  924.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  925.                     CASE CIVIC2 == 'BOAR'
  926.                         =FWRITE(bio, '"Board of Realtors",')
  927.                     CASE CIVIC2 == 'BUSW'
  928.                         =FWRITE(bio, '"Businesswomens Clubs",')
  929.                     CASE CIVIC2 == 'CANC'
  930.                         =FWRITE(bio, '"Cancer Society",')
  931.                     CASE CIVIC2 == 'CARE'
  932.                         =FWRITE(bio, '"CARES",')
  933.                     CASE CIVIC2 == 'CIVI'
  934.                         =FWRITE(bio, '"Civic Activities",')
  935.                     CASE CIVIC2 == 'CF  '
  936.                         =FWRITE(bio, '"Cystic Fibrosis",')
  937.                     CASE CIVIC2 == 'CCJC'
  938.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  939.                     CASE CIVIC2 == 'CHSC'
  940.                         =FWRITE(bio, '"Church/School Volunteer",')
  941.                     CASE CIVIC2 == 'CMN '
  942.                         =FWRITE(bio, '"Childrens Miracle Network",')
  943.                     CASE CIVIC2 == 'COAC'
  944.                         =FWRITE(bio, '"Coach Volunteer",')
  945.                     CASE CIVIC2 == 'COLL'
  946.                         =FWRITE(bio, '"College/Frat Alumni",')
  947.                     CASE CIVIC2 == 'COMM'
  948.                         =FWRITE(bio, '"Community Economic Devmt",')
  949.                     CASE CIVIC2 == 'CRSB'
  950.                         =FWRITE(bio, '"CRS/CRB",')
  951.                     CASE CIVIC2 == 'DELQ'
  952.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  953.                     CASE CIVIC2 == 'EAST'
  954.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  955.                     CASE CIVIC2 == 'EEMC'
  956.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  957.                     CASE CIVIC2 == 'ENVR'
  958.                         =FWRITE(bio, '"Environmental Concerns",')
  959.                     CASE CIVIC2 == 'FOST'
  960.                         =FWRITE(bio, '"Foster Care/Adoption",')
  961.                     CASE CIVIC2 == 'GRPE'
  962.                         =FWRITE(bio, '"Green Peace",')
  963.                     CASE CIVIC2 == 'HOBL'
  964.                         =FWRITE(bio, '"Home Builders",')
  965.                     CASE CIVIC2 == 'HOLS'
  966.                         =FWRITE(bio, '"Homeless",')
  967.                     CASE CIVIC2 == 'HOME'
  968.                         =FWRITE(bio, '"Home Owners Association",')
  969.                     CASE CIVIC2 == 'HOSP'
  970.                         =FWRITE(bio, '"Hospital Volunteer",')
  971.                     CASE CIVIC2 == 'HUMA'
  972.                         =FWRITE(bio, '"Humane Society",')
  973.                     CASE CIVIC2 == 'JRLG'
  974.                         =FWRITE(bio, '"Jr. League",')
  975.                     CASE CIVIC2 == 'KIWA'
  976.                         =FWRITE(bio, '"Kiwanis",')
  977.                     CASE CIVIC2 == 'KNCO'
  978.                         =FWRITE(bio, '"Knights of Columbus",')
  979.                     CASE CIVIC2 == 'LION'
  980.                         =FWRITE(bio, '"Lions Clubs",')
  981.                     CASE CIVIC2 == 'LITL'
  982.                         =FWRITE(bio, '"Little League",')
  983.                     CASE CIVIC2 == 'MAKE'
  984.                         =FWRITE(bio, '"Make-A-Wish",')
  985.                     CASE CIVIC2 == 'MASO'
  986.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  987.                     CASE CIVIC2 == 'MEAL'
  988.                         =FWRITE(bio, '"Meals on Wheels",')
  989.                     CASE CIVIC2 == 'MEDL'
  990.                         =FWRITE(bio, '"Medical Auxillary",')
  991.                     CASE CIVIC2 == 'MS  '
  992.                         =FWRITE(bio, '"Multiple Sclerosis",')
  993.                     CASE CIVIC2 == 'OPT '
  994.                         =FWRITE(bio, '"Optimist",')
  995.                     CASE CIVIC2 == 'PTAO'
  996.                         =FWRITE(bio, '"PTA/PTO",')
  997.                     CASE CIVIC2 == 'POLI'
  998.                         =FWRITE(bio, '"Politics/Political Clubs",')
  999.                     CASE CIVIC2 == 'REDC'
  1000.                         =FWRITE(bio, '"Red Cross",')
  1001.                     CASE CIVIC2 == 'RETD'
  1002.                         =FWRITE(bio, '"Retarded People",')
  1003.                     CASE CIVIC2 == 'RONM'
  1004.                         =FWRITE(bio, '"Ronald McDonald House",')
  1005.                     CASE CIVIC2 == 'ROTY'
  1006.                         =FWRITE(bio, '"Rotary",')
  1007.                     CASE CIVIC2 == 'SADD'
  1008.                         =FWRITE(bio, '"SADD/MADD",')
  1009.                     CASE CIVIC2 == 'SIER'
  1010.                         =FWRITE(bio, '"Sierra Club",')
  1011.                     CASE CIVIC2 == 'SPOL'
  1012.                         =FWRITE(bio, '"Special Olympics",')
  1013.                     CASE CIVIC2 == 'STDY'
  1014.                         =FWRITE(bio, '"Study Club",')
  1015.                     CASE CIVIC2 == 'TOAS'
  1016.                         =FWRITE(bio, '"Toastmasters",')
  1017.                     CASE CIVIC2 == 'UNIT'
  1018.                         =FWRITE(bio, '"United Way",')
  1019.                     CASE CIVIC2 == 'VF  '
  1020.                         =FWRITE(bio, '"VFW/Am Legion",')
  1021.                     CASE CIVIC2 == 'WC  '
  1022.                         =FWRITE(bio, '"Womens Council of Realtors",')
  1023.                     CASE CIVIC2 == 'YMCA'
  1024.                         =FWRITE(bio, '"YMCA/YWCA",')
  1025.                       OTHERWISE
  1026.                           =FWRITE(bio, ',')
  1027.                   ENDCASE
  1028.               ELSE
  1029.                 =FWRITE(bio, ',')
  1030.               ENDIF    
  1031.                 
  1032.              IF NOT EMPTY(TRIM(CIVIC1))
  1033.                 DO CASE                 
  1034.                     CASE CIVIC3 == 'AGED'
  1035.                         =FWRITE(bio, '"Aged Volunteer",')
  1036.                     CASE CIVIC3 == 'ALCO'
  1037.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  1038.                     CASE CIVIC3 == 'ARMD'
  1039.                         =FWRITE(bio, '"Armed Forces Reserves",')
  1040.                     CASE CIVIC3 == 'BATT'
  1041.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  1042.                     CASE CIVIC3 == 'BGCL'
  1043.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  1044.                     CASE CIVIC3 == 'BGSC'
  1045.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  1046.                     CASE CIVIC3 == 'BOAR'
  1047.                         =FWRITE(bio, '"Board of Realtors",')
  1048.                     CASE CIVIC3 == 'BUSW'
  1049.                         =FWRITE(bio, '"Businesswomens Clubs",')
  1050.                     CASE CIVIC3 == 'CANC'
  1051.                         =FWRITE(bio, '"Cancer Society",')
  1052.                     CASE CIVIC3 == 'CARE'
  1053.                         =FWRITE(bio, '"CARES",')
  1054.                     CASE CIVIC3 == 'CIVI'
  1055.                         =FWRITE(bio, '"Civic Activities",')
  1056.                     CASE CIVIC3 == 'CF  '
  1057.                         =FWRITE(bio, '"Cystic Fibrosis",')
  1058.                     CASE CIVIC3 == 'CCJC'
  1059.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  1060.                     CASE CIVIC3 == 'CHSC'
  1061.                         =FWRITE(bio, '"Church/School Volunteer",')
  1062.                     CASE CIVIC3 == 'CMN '
  1063.                         =FWRITE(bio, '"Childrens Miracle Network",')
  1064.                     CASE CIVIC3 == 'COAC'
  1065.                         =FWRITE(bio, '"Coach Volunteer",')
  1066.                     CASE CIVIC3 == 'COLL'
  1067.                         =FWRITE(bio, '"College/Frat Alumni",')
  1068.                     CASE CIVIC3 == 'COMM'
  1069.                         =FWRITE(bio, '"Community Economic Devmt",')
  1070.                     CASE CIVIC3 == 'CRSB'
  1071.                         =FWRITE(bio, '"CRS/CRB",')
  1072.                     CASE CIVIC3 == 'DELQ'
  1073.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  1074.                     CASE CIVIC3 == 'EAST'
  1075.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  1076.                     CASE CIVIC3 == 'EEMC'
  1077.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  1078.                     CASE CIVIC3 == 'ENVR'
  1079.                         =FWRITE(bio, '"Environmental Concerns",')
  1080.                     CASE CIVIC3 == 'FOST'
  1081.                         =FWRITE(bio, '"Foster Care/Adoption",')
  1082.                     CASE CIVIC3 == 'GRPE'
  1083.                         =FWRITE(bio, '"Green Peace",')
  1084.                     CASE CIVIC3 == 'HOBL'
  1085.                         =FWRITE(bio, '"Home Builders",')
  1086.                     CASE CIVIC3 == 'HOLS'
  1087.                         =FWRITE(bio, '"Homeless",')
  1088.                     CASE CIVIC3 == 'HOME'
  1089.                         =FWRITE(bio, '"Home Owners Association",')
  1090.                     CASE CIVIC3 == 'HOSP'
  1091.                         =FWRITE(bio, '"Hospital Volunteer",')
  1092.                     CASE CIVIC3 == 'HUMA'
  1093.                         =FWRITE(bio, '"Humane Society",')
  1094.                     CASE CIVIC3 == 'JRLG'
  1095.                         =FWRITE(bio, '"Jr. League",')
  1096.                     CASE CIVIC3 == 'KIWA'
  1097.                         =FWRITE(bio, '"Kiwanis",')
  1098.                     CASE CIVIC3 == 'KNCO'
  1099.                         =FWRITE(bio, '"Knights of Columbus",')
  1100.                     CASE CIVIC3 == 'LION'
  1101.                         =FWRITE(bio, '"Lions Clubs",')
  1102.                     CASE CIVIC3 == 'LITL'
  1103.                         =FWRITE(bio, '"Little League",')
  1104.                     CASE CIVIC3 == 'MAKE'
  1105.                         =FWRITE(bio, '"Make-A-Wish",')
  1106.                     CASE CIVIC3 == 'MASO'
  1107.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  1108.                     CASE CIVIC3 == 'MEAL'
  1109.                         =FWRITE(bio, '"Meals on Wheels",')
  1110.                     CASE CIVIC3 == 'MEDL'
  1111.                         =FWRITE(bio, '"Medical Auxillary",')
  1112.                     CASE CIVIC3 == 'MS  '
  1113.                         =FWRITE(bio, '"Multiple Sclerosis",')
  1114.                     CASE CIVIC3 == 'OPT '
  1115.                         =FWRITE(bio, '"Optimist",')
  1116.                     CASE CIVIC3 == 'PTAO'
  1117.                         =FWRITE(bio, '"PTA/PTO",')
  1118.                     CASE CIVIC3 == 'POLI'
  1119.                         =FWRITE(bio, '"Politics/Political Clubs",')
  1120.                     CASE CIVIC3 == 'REDC'
  1121.                         =FWRITE(bio, '"Red Cross",')
  1122.                     CASE CIVIC3 == 'RETD'
  1123.                         =FWRITE(bio, '"Retarded People",')
  1124.                     CASE CIVIC3 == 'RONM'
  1125.                         =FWRITE(bio, '"Ronald McDonald House",')
  1126.                     CASE CIVIC3 == 'ROTY'
  1127.                         =FWRITE(bio, '"Rotary",')
  1128.                     CASE CIVIC3 == 'SADD'
  1129.                         =FWRITE(bio, '"SADD/MADD",')
  1130.                     CASE CIVIC3 == 'SIER'
  1131.                         =FWRITE(bio, '"Sierra Club",')
  1132.                     CASE CIVIC3 == 'SPOL'
  1133.                         =FWRITE(bio, '"Special Olympics",')
  1134.                     CASE CIVIC3 == 'STDY'
  1135.                         =FWRITE(bio, '"Study Club",')
  1136.                     CASE CIVIC3 == 'TOAS'
  1137.                         =FWRITE(bio, '"Toastmasters",')
  1138.                     CASE CIVIC3 == 'UNIT'
  1139.                         =FWRITE(bio, '"United Way",')
  1140.                     CASE CIVIC3 == 'VF  '
  1141.                         =FWRITE(bio, '"VFW/Am Legion",')
  1142.                     CASE CIVIC3 == 'WC  '
  1143.                         =FWRITE(bio, '"Womens Council of Realtors",')
  1144.                     CASE CIVIC3 == 'YMCA'
  1145.                         =FWRITE(bio, '"YMCA/YWCA",')
  1146.                       OTHERWISE
  1147.                           =FWRITE(bio, ',')
  1148.                   ENDCASE
  1149.               ELSE
  1150.                   =FWRITE(bio, ',')
  1151.               ENDIF    
  1152.                 
  1153.             IF NOT EMPTY(TRIM(HOBBY1))
  1154.                 DO CASE
  1155.                 
  1156.                     CASE HOBBY1 == 'ANTC' 
  1157.                         =FWRITE(bio, '"Antique Cars",')
  1158.                     CASE HOBBY1 == 'ANTQ' 
  1159.                         =FWRITE(bio, '"Antiques",')
  1160.                     CASE HOBBY1 == 'ARCH' 
  1161.                         =FWRITE(bio, '"Architecture",')
  1162.                     CASE HOBBY1 == 'ART '
  1163.                         =FWRITE(bio, '"Art/Painting",')
  1164.                     CASE HOBBY1 == 'AUTO' 
  1165.                         =FWRITE(bio, '"Auto Racing",')
  1166.                     CASE HOBBY1 == 'BASK' 
  1167.                         =FWRITE(bio, '"Basketball",')
  1168.                     CASE HOBBY1 == 'BILL' 
  1169.                         =FWRITE(bio, '"Billiards",')
  1170.                     CASE HOBBY1 == 'BIKE' 
  1171.                         =FWRITE(bio, '"Biking",')
  1172.                     CASE HOBBY1 == 'BIRD' 
  1173.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1174.                     CASE HOBBY1 == 'BOAT' 
  1175.                         =FWRITE(bio, '"Boating/Sailing",')
  1176.                     CASE HOBBY1 == 'BOWL' 
  1177.                         =FWRITE(bio, '"Bowling",')
  1178.                     CASE HOBBY1 == 'BRID' 
  1179.                         =FWRITE(bio, '"Bridge",')
  1180.                     CASE HOBBY1 == 'CHOR' 
  1181.                         =FWRITE(bio, '"Choir/Singing",')
  1182.                     CASE HOBBY1 == 'CHRK' 
  1183.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1184.                     CASE HOBBY1 == 'COLL' 
  1185.                         =FWRITE(bio, '"Collecting",')
  1186.                     CASE HOBBY1 == 'COMP' 
  1187.                         =FWRITE(bio, '"Computers",')
  1188.                     CASE HOBBY1 == 'COOK' 
  1189.                         =FWRITE(bio, '"Cooking",')
  1190.                     CASE HOBBY1 == 'CURL' 
  1191.                         =FWRITE(bio, '"Curling",')
  1192.                     CASE HOBBY1 == 'DANC' 
  1193.                         =FWRITE(bio, '"Dancing",')
  1194.                     CASE HOBBY1 == 'DOGS' 
  1195.                         =FWRITE(bio, '"Dogs/Cats",')
  1196.                     CASE HOBBY1 == 'DRAM' 
  1197.                         =FWRITE(bio, '"Drama Groups",')
  1198.                     CASE HOBBY1 == 'EDUC' 
  1199.                         =FWRITE(bio, '"Education/Training/Growth",')
  1200.                     CASE HOBBY1 == 'FARM' 
  1201.                         =FWRITE(bio, '"Farming",')
  1202.                     CASE HOBBY1 == 'FITN' 
  1203.                         =FWRITE(bio, '"Fitness",')
  1204.                     CASE HOBBY1 == 'FLY '
  1205.                         =FWRITE(bio, '"Flying",')
  1206.                     CASE HOBBY1 == 'FOOD' 
  1207.                         =FWRITE(bio, '"Food/Wine",')
  1208.                     CASE HOBBY1 == 'GAMB' 
  1209.                         =FWRITE(bio, '"Gambling",')
  1210.                     CASE HOBBY1 == 'GARD' 
  1211.                         =FWRITE(bio, '"Gardening",')
  1212.                     CASE HOBBY1 == 'GOLF' 
  1213.                         =FWRITE(bio, '"Golf",')
  1214.                     CASE HOBBY1 == 'HIKE' 
  1215.                         =FWRITE(bio, '"Hiking/Camping",')
  1216.                     CASE HOBBY1 == 'HIST' 
  1217.                         =FWRITE(bio, '"Historical Society",')
  1218.                     CASE HOBBY1 == 'HOCK' 
  1219.                         =FWRITE(bio, '"Hockey",')
  1220.                     CASE HOBBY1 == 'HORS' 
  1221.                         =FWRITE(bio, '"Horses",')
  1222.                     CASE HOBBY1 == 'HOT '
  1223.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1224.                     CASE HOBBY1 == 'HUNT' 
  1225.                         =FWRITE(bio, '"Hunt/Fish",')
  1226.                     CASE HOBBY1 == 'INDE' 
  1227.                         =FWRITE(bio, '"Interior Decorating",')
  1228.                     CASE HOBBY1 == 'MART' 
  1229.                         =FWRITE(bio, '"Martial Arts",')
  1230.                     CASE HOBBY1 == 'MODL' 
  1231.                         =FWRITE(bio, '"Model Planes/Trains",')
  1232.                     CASE HOBBY1 == 'MOTO' 
  1233.                         =FWRITE(bio, '"Motorcycles",')
  1234.                     CASE HOBBY1 == 'MUIN' 
  1235.                         =FWRITE(bio, '"Musical Instruments",')
  1236.                     CASE HOBBY1 == 'MUSE' 
  1237.                         =FWRITE(bio, '"Museums",')
  1238.                     CASE HOBBY1 == 'MUSI' 
  1239.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1240.                     CASE HOBBY1 == 'PHOT' 
  1241.                         =FWRITE(bio, '"Photography",')
  1242.                     CASE HOBBY1 == 'READ' 
  1243.                         =FWRITE(bio, '"Reading",')
  1244.                     CASE HOBBY1 == 'SCUB' 
  1245.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1246.                     CASE HOBBY1 == 'SEW '
  1247.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1248.                     CASE HOBBY1 == 'SHOP' 
  1249.                         =FWRITE(bio, '"Shoppping",')
  1250.                     CASE HOBBY1 == 'SHOT' 
  1251.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1252.                     CASE HOBBY1 == 'SNOM' 
  1253.                         =FWRITE(bio, '"Snowmobiling",')
  1254.                     CASE HOBBY1 == 'SNOS' 
  1255.                         =FWRITE(bio, '"Snowskiing",')
  1256.                     CASE HOBBY1 == 'SOCC' 
  1257.                         =FWRITE(bio, '"Soccer",')
  1258.                     CASE HOBBY1 == 'SOFT' 
  1259.                         =FWRITE(bio, '"Softball",')
  1260.                     CASE HOBBY1 == 'SPEC' 
  1261.                         =FWRITE(bio, '"Spectator Sports",')
  1262.                     CASE HOBBY1 == 'SQUA' 
  1263.                         =FWRITE(bio, '"Squash",')
  1264.                     CASE HOBBY1 == 'STGL' 
  1265.                         =FWRITE(bio, '"Stained Glass",')
  1266.                     CASE HOBBY1 == 'SWIM' 
  1267.                         =FWRITE(bio, '"Swimming",')
  1268.                     CASE HOBBY1 == 'TENN' 
  1269.                         =FWRITE(bio, '"Tennis",')
  1270.                     CASE HOBBY1 == 'THEA' 
  1271.                         =FWRITE(bio, '"Theatre/Movies",')
  1272.                     CASE HOBBY1 == 'TRAV' 
  1273.                         =FWRITE(bio, '"Travel",')
  1274.                     CASE HOBBY1 == 'VOLL' 
  1275.                         =FWRITE(bio, '"Volleyball",')
  1276.                     CASE HOBBY1 == 'WATS' 
  1277.                         =FWRITE(bio, '"Water Skiing",')
  1278.                     CASE HOBBY1 == 'WELF' 
  1279.                         =FWRITE(bio, '"Weightlifting",')
  1280.                     CASE HOBBY1 == 'WOOD' 
  1281.                         =FWRITE(bio, '"Woodworking",')
  1282.                     CASE HOBBY1 == 'WRIT' 
  1283.                         =FWRITE(bio, '"Writing",')
  1284.                     CASE HOBBY1 == 'YOGA' 
  1285.                         =FWRITE(bio, '"Yoga/Meditation",')
  1286.                     OTHERWISE    
  1287.                         =FWRITE(bio, ',')
  1288.  
  1289.                 ENDCASE
  1290.             ELSE
  1291.                 =FWRITE(bio, ',')
  1292.             ENDIF
  1293.                 
  1294.             IF NOT EMPTY(TRIM(HOBBY2))
  1295.                 DO CASE
  1296.                 
  1297.                     CASE HOBBY2 == 'ANTC' 
  1298.                         =FWRITE(bio, '"Antique Cars",')
  1299.                     CASE HOBBY2 == 'ANTQ' 
  1300.                         =FWRITE(bio, '"Antiques",')
  1301.                     CASE HOBBY2 == 'ARCH' 
  1302.                         =FWRITE(bio, '"Architecture",')
  1303.                     CASE HOBBY2 == 'ART '
  1304.                         =FWRITE(bio, '"Art/Painting",')
  1305.                     CASE HOBBY2 == 'AUTO' 
  1306.                         =FWRITE(bio, '"Auto Racing",')
  1307.                     CASE HOBBY2 == 'BASK' 
  1308.                         =FWRITE(bio, '"Basketball",')
  1309.                     CASE HOBBY2 == 'BILL' 
  1310.                         =FWRITE(bio, '"Billiards",')
  1311.                     CASE HOBBY2 == 'BIKE' 
  1312.                         =FWRITE(bio, '"Biking",')
  1313.                     CASE HOBBY2 == 'BIRD' 
  1314.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1315.                     CASE HOBBY2 == 'BOAT' 
  1316.                         =FWRITE(bio, '"Boating/Sailing",')
  1317.                     CASE HOBBY2 == 'BOWL' 
  1318.                         =FWRITE(bio, '"Bowling",')
  1319.                     CASE HOBBY2 == 'BRID' 
  1320.                         =FWRITE(bio, '"Bridge",')
  1321.                     CASE HOBBY2 == 'CHOR' 
  1322.                         =FWRITE(bio, '"Choir/Singing",')
  1323.                     CASE HOBBY2 == 'CHRK' 
  1324.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1325.                     CASE HOBBY2 == 'COLL' 
  1326.                         =FWRITE(bio, '"Collecting",')
  1327.                     CASE HOBBY2 == 'COMP' 
  1328.                         =FWRITE(bio, '"Computers",')
  1329.                     CASE HOBBY2 == 'COOK' 
  1330.                         =FWRITE(bio, '"Cooking",')
  1331.                     CASE HOBBY2 == 'CURL' 
  1332.                         =FWRITE(bio, '"Curling",')
  1333.                     CASE HOBBY2 == 'DANC' 
  1334.                         =FWRITE(bio, '"Dancing",')
  1335.                     CASE HOBBY2 == 'DOGS' 
  1336.                         =FWRITE(bio, '"Dogs/Cats",')
  1337.                     CASE HOBBY2 == 'DRAM' 
  1338.                         =FWRITE(bio, '"Drama Groups",')
  1339.                     CASE HOBBY2 == 'EDUC' 
  1340.                         =FWRITE(bio, '"Education/Training/Growth",')
  1341.                     CASE HOBBY2 == 'FARM' 
  1342.                         =FWRITE(bio, '"Farming",')
  1343.                     CASE HOBBY2 == 'FITN' 
  1344.                         =FWRITE(bio, '"Fitness",')
  1345.                     CASE HOBBY2 == 'FLY '
  1346.                         =FWRITE(bio, '"Flying",')
  1347.                     CASE HOBBY2 == 'FOOD' 
  1348.                         =FWRITE(bio, '"Food/Wine",')
  1349.                     CASE HOBBY2 == 'GAMB' 
  1350.                         =FWRITE(bio, '"Gambling",')
  1351.                     CASE HOBBY2 == 'GARD' 
  1352.                         =FWRITE(bio, '"Gardening",')
  1353.                     CASE HOBBY2 == 'GOLF' 
  1354.                         =FWRITE(bio, '"Golf",')
  1355.                     CASE HOBBY2 == 'HIKE' 
  1356.                         =FWRITE(bio, '"Hiking/Camping",')
  1357.                     CASE HOBBY2 == 'HIST' 
  1358.                         =FWRITE(bio, '"Historical Society",')
  1359.                     CASE HOBBY2 == 'HOCK' 
  1360.                         =FWRITE(bio, '"Hockey",')
  1361.                     CASE HOBBY2 == 'HORS' 
  1362.                         =FWRITE(bio, '"Horses",')
  1363.                     CASE HOBBY2 == 'HOT '
  1364.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1365.                     CASE HOBBY2 == 'HUNT' 
  1366.                         =FWRITE(bio, '"Hunt/Fish",')
  1367.                     CASE HOBBY2 == 'INDE' 
  1368.                         =FWRITE(bio, '"Interior Decorating",')
  1369.                     CASE HOBBY2 == 'MART' 
  1370.                         =FWRITE(bio, '"Martial Arts",')
  1371.                     CASE HOBBY2 == 'MODL' 
  1372.                         =FWRITE(bio, '"Model Planes/Trains",')
  1373.                     CASE HOBBY2 == 'MOTO' 
  1374.                         =FWRITE(bio, '"Motorcycles",')
  1375.                     CASE HOBBY2 == 'MUIN' 
  1376.                         =FWRITE(bio, '"Musical Instruments",')
  1377.                     CASE HOBBY2 == 'MUSE' 
  1378.                         =FWRITE(bio, '"Museums",')
  1379.                     CASE HOBBY2 == 'MUSI' 
  1380.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1381.                     CASE HOBBY2 == 'PHOT' 
  1382.                         =FWRITE(bio, '"Photography",')
  1383.                     CASE HOBBY2 == 'READ' 
  1384.                         =FWRITE(bio, '"Reading",')
  1385.                     CASE HOBBY2 == 'SCUB' 
  1386.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1387.                     CASE HOBBY2 == 'SEW '
  1388.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1389.                     CASE HOBBY2 == 'SHOP' 
  1390.                         =FWRITE(bio, '"Shoppping",')
  1391.                     CASE HOBBY2 == 'SHOT' 
  1392.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1393.                     CASE HOBBY2 == 'SNOM' 
  1394.                         =FWRITE(bio, '"Snowmobiling",')
  1395.                     CASE HOBBY2 == 'SNOS' 
  1396.                         =FWRITE(bio, '"Snowskiing",')
  1397.                     CASE HOBBY2 == 'SOCC' 
  1398.                         =FWRITE(bio, '"Soccer",')
  1399.                     CASE HOBBY2 == 'SOFT' 
  1400.                         =FWRITE(bio, '"Softball",')
  1401.                     CASE HOBBY2 == 'SPEC' 
  1402.                         =FWRITE(bio, '"Spectator Sports",')
  1403.                     CASE HOBBY2 == 'SQUA' 
  1404.                         =FWRITE(bio, '"Squash",')
  1405.                     CASE HOBBY2 == 'STGL' 
  1406.                         =FWRITE(bio, '"Stained Glass",')
  1407.                     CASE HOBBY2 == 'SWIM' 
  1408.                         =FWRITE(bio, '"Swimming",')
  1409.                     CASE HOBBY2 == 'TENN' 
  1410.                         =FWRITE(bio, '"Tennis",')
  1411.                     CASE HOBBY2 == 'THEA' 
  1412.                         =FWRITE(bio, '"Theatre/Movies",')
  1413.                     CASE HOBBY2 == 'TRAV' 
  1414.                         =FWRITE(bio, '"Travel",')
  1415.                     CASE HOBBY2 == 'VOLL' 
  1416.                         =FWRITE(bio, '"Volleyball",')
  1417.                     CASE HOBBY2 == 'WATS' 
  1418.                         =FWRITE(bio, '"Water Skiing",')
  1419.                     CASE HOBBY2 == 'WELF' 
  1420.                         =FWRITE(bio, '"Weightlifting",')
  1421.                     CASE HOBBY2 == 'WOOD' 
  1422.                         =FWRITE(bio, '"Woodworking",')
  1423.                     CASE HOBBY2 == 'WRIT' 
  1424.                         =FWRITE(bio, '"Writing",')
  1425.                     CASE HOBBY2 == 'YOGA' 
  1426.                         =FWRITE(bio, '"Yoga/Meditation",')
  1427.                     OTHERWISE    
  1428.                         =FWRITE(bio, ',')
  1429.  
  1430.                 ENDCASE
  1431.             ELSE
  1432.                 =FWRITE(bio, ',')
  1433.             ENDIF
  1434.             
  1435.             IF NOT EMPTY(TRIM(HOBBY3))
  1436.                 DO CASE
  1437.                 
  1438.                     CASE HOBBY3 == 'ANTC' 
  1439.                         =FWRITE(bio, '"Antique Cars",')
  1440.                     CASE HOBBY3 == 'ANTQ' 
  1441.                         =FWRITE(bio, '"Antiques",')
  1442.                     CASE HOBBY3 == 'ARCH' 
  1443.                         =FWRITE(bio, '"Architecture",')
  1444.                     CASE HOBBY3 == 'ART '
  1445.                         =FWRITE(bio, '"Art/Painting",')
  1446.                     CASE HOBBY3 == 'AUTO' 
  1447.                         =FWRITE(bio, '"Auto Racing",')
  1448.                     CASE HOBBY3 == 'BASK' 
  1449.                         =FWRITE(bio, '"Basketball",')
  1450.                     CASE HOBBY3 == 'BILL' 
  1451.                         =FWRITE(bio, '"Billiards",')
  1452.                     CASE HOBBY3 == 'BIKE' 
  1453.                         =FWRITE(bio, '"Biking",')
  1454.                     CASE HOBBY3 == 'BIRD' 
  1455.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1456.                     CASE HOBBY3 == 'BOAT' 
  1457.                         =FWRITE(bio, '"Boating/Sailing",')
  1458.                     CASE HOBBY3 == 'BOWL' 
  1459.                         =FWRITE(bio, '"Bowling",')
  1460.                     CASE HOBBY3 == 'BRID' 
  1461.                         =FWRITE(bio, '"Bridge",')
  1462.                     CASE HOBBY3 == 'CHOR' 
  1463.                         =FWRITE(bio, '"Choir/Singing",')
  1464.                     CASE HOBBY3 == 'CHRK' 
  1465.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1466.                     CASE HOBBY3 == 'COLL' 
  1467.                         =FWRITE(bio, '"Collecting",')
  1468.                     CASE HOBBY3 == 'COMP' 
  1469.                         =FWRITE(bio, '"Computers",')
  1470.                     CASE HOBBY3 == 'COOK' 
  1471.                         =FWRITE(bio, '"Cooking",')
  1472.                     CASE HOBBY3 == 'CURL' 
  1473.                         =FWRITE(bio, '"Curling",')
  1474.                     CASE HOBBY3 == 'DANC' 
  1475.                         =FWRITE(bio, '"Dancing",')
  1476.                     CASE HOBBY3 == 'DOGS' 
  1477.                         =FWRITE(bio, '"Dogs/Cats",')
  1478.                     CASE HOBBY3 == 'DRAM' 
  1479.                         =FWRITE(bio, '"Drama Groups",')
  1480.                     CASE HOBBY3 == 'EDUC' 
  1481.                         =FWRITE(bio, '"Education/Training/Growth",')
  1482.                     CASE HOBBY3 == 'FARM' 
  1483.                         =FWRITE(bio, '"Farming",')
  1484.                     CASE HOBBY3 == 'FITN' 
  1485.                         =FWRITE(bio, '"Fitness",')
  1486.                     CASE HOBBY3 == 'FLY '
  1487.                         =FWRITE(bio, '"Flying",')
  1488.                     CASE HOBBY3 == 'FOOD' 
  1489.                         =FWRITE(bio, '"Food/Wine",')
  1490.                     CASE HOBBY3 == 'GAMB' 
  1491.                         =FWRITE(bio, '"Gambling",')
  1492.                     CASE HOBBY3 == 'GARD' 
  1493.                         =FWRITE(bio, '"Gardening",')
  1494.                     CASE HOBBY3 == 'GOLF' 
  1495.                         =FWRITE(bio, '"Golf",')
  1496.                     CASE HOBBY3 == 'HIKE' 
  1497.                         =FWRITE(bio, '"Hiking/Camping",')
  1498.                     CASE HOBBY3 == 'HIST' 
  1499.                         =FWRITE(bio, '"Historical Society",')
  1500.                     CASE HOBBY3 == 'HOCK' 
  1501.                         =FWRITE(bio, '"Hockey",')
  1502.                     CASE HOBBY3 == 'HORS' 
  1503.                         =FWRITE(bio, '"Horses",')
  1504.                     CASE HOBBY3 == 'HOT '
  1505.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1506.                     CASE HOBBY3 == 'HUNT' 
  1507.                         =FWRITE(bio, '"Hunt/Fish",')
  1508.                     CASE HOBBY3 == 'INDE' 
  1509.                         =FWRITE(bio, '"Interior Decorating",')
  1510.                     CASE HOBBY3 == 'MART' 
  1511.                         =FWRITE(bio, '"Martial Arts",')
  1512.                     CASE HOBBY3 == 'MODL' 
  1513.                         =FWRITE(bio, '"Model Planes/Trains",')
  1514.                     CASE HOBBY3 == 'MOTO' 
  1515.                         =FWRITE(bio, '"Motorcycles",')
  1516.                     CASE HOBBY3 == 'MUIN' 
  1517.                         =FWRITE(bio, '"Musical Instruments",')
  1518.                     CASE HOBBY3 == 'MUSE' 
  1519.                         =FWRITE(bio, '"Museums",')
  1520.                     CASE HOBBY3 == 'MUSI' 
  1521.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1522.                     CASE HOBBY3 == 'PHOT' 
  1523.                         =FWRITE(bio, '"Photography",')
  1524.                     CASE HOBBY3 == 'READ' 
  1525.                         =FWRITE(bio, '"Reading",')
  1526.                     CASE HOBBY3 == 'SCUB' 
  1527.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1528.                     CASE HOBBY3 == 'SEW '
  1529.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1530.                     CASE HOBBY3 == 'SHOP' 
  1531.                         =FWRITE(bio, '"Shoppping",')
  1532.                     CASE HOBBY3 == 'SHOT' 
  1533.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1534.                     CASE HOBBY3 == 'SNOM' 
  1535.                         =FWRITE(bio, '"Snowmobiling",')
  1536.                     CASE HOBBY3 == 'SNOS' 
  1537.                         =FWRITE(bio, '"Snowskiing",')
  1538.                     CASE HOBBY3 == 'SOCC' 
  1539.                         =FWRITE(bio, '"Soccer",')
  1540.                     CASE HOBBY3 == 'SOFT' 
  1541.                         =FWRITE(bio, '"Softball",')
  1542.                     CASE HOBBY3 == 'SPEC' 
  1543.                         =FWRITE(bio, '"Spectator Sports",')
  1544.                     CASE HOBBY3 == 'SQUA' 
  1545.                         =FWRITE(bio, '"Squash",')
  1546.                     CASE HOBBY3 == 'STGL' 
  1547.                         =FWRITE(bio, '"Stained Glass",')
  1548.                     CASE HOBBY3 == 'SWIM' 
  1549.                         =FWRITE(bio, '"Swimming",')
  1550.                     CASE HOBBY3 == 'TENN' 
  1551.                         =FWRITE(bio, '"Tennis",')
  1552.                     CASE HOBBY3 == 'THEA' 
  1553.                         =FWRITE(bio, '"Theatre/Movies",')
  1554.                     CASE HOBBY3 == 'TRAV' 
  1555.                         =FWRITE(bio, '"Travel",')
  1556.                     CASE HOBBY3 == 'VOLL' 
  1557.                         =FWRITE(bio, '"Volleyball",')
  1558.                     CASE HOBBY3 == 'WATS' 
  1559.                         =FWRITE(bio, '"Water Skiing",')
  1560.                     CASE HOBBY3 == 'WELF' 
  1561.                         =FWRITE(bio, '"Weightlifting",')
  1562.                     CASE HOBBY3 == 'WOOD' 
  1563.                         =FWRITE(bio, '"Woodworking",')
  1564.                     CASE HOBBY3 == 'WRIT' 
  1565.                         =FWRITE(bio, '"Writing",')
  1566.                     CASE HOBBY3 == 'YOGA' 
  1567.                         =FWRITE(bio, '"Yoga/Meditation",')
  1568.                     OTHERWISE    
  1569.                         =FWRITE(bio, ',')
  1570.  
  1571.                 ENDCASE
  1572.             ELSE
  1573.                 =FWRITE(bio, ',')
  1574.             ENDIF            
  1575.  
  1576.             IF NOT EMPTY(TRIM(MEMBER1))
  1577.                 =FWRITE(bio, '"'+TRIM(MEMBER1)+'",')
  1578.             ELSE
  1579.                 =FWRITE(bio, ',')
  1580.             ENDIF
  1581.                 
  1582.             IF NOT EMPTY(TRIM(MEMBER2))
  1583.                 =FWRITE(bio, '"'+TRIM(MEMBER2)+'",')
  1584.             ELSE
  1585.                 =FWRITE(bio, ',')
  1586.             ENDIF
  1587.                 
  1588.             IF NOT EMPTY(TRIM(MEMBER3))
  1589.                 =FWRITE(bio, '"'+TRIM(MEMBER3)+'",')
  1590.             ELSE
  1591.                 =FWRITE(bio, ',')
  1592.             ENDIF
  1593.                 
  1594.             IF NOT EMPTY(TRIM(Service1))
  1595.                 =FWRITE(bio, '"'+TRIM(Service1)+'",')
  1596.             ELSE
  1597.                 =FWRITE(bio, ',')
  1598.             ENDIF
  1599.                 
  1600.             IF NOT EMPTY(TRIM(Service2))
  1601.                 =FWRITE(bio, '"'+TRIM(Service2)+'",')
  1602.             ELSE
  1603.                 =FWRITE(bio, ',')
  1604.  
  1605.             ENDIF
  1606.                 
  1607.             IF NOT EMPTY(TRIM(Service3))
  1608.                 =FWRITE(bio, '"'+TRIM(Service3)+'",')
  1609.             ELSE
  1610.                 =FWRITE(bio, ',')
  1611.             ENDIF
  1612.                 
  1613.             IF NOT EMPTY(TRIM(Service4))
  1614.                 =FWRITE(bio, '"'+TRIM(Service4)+'",')
  1615.             ELSE
  1616.                 =FWRITE(bio, ',')
  1617.             ENDIF
  1618.                 
  1619.             IF NOT EMPTY(TRIM(Service5))
  1620.                 =FWRITE(bio, '"'+TRIM(Service5)+'",')
  1621.             ELSE
  1622.                 =FWRITE(bio, ',')
  1623.             ENDIF        
  1624.  
  1625.             IF NOT EMPTY(TRIM(Education))
  1626.                 =FWRITE(bio, '"'+TRIM(Education)+'",')
  1627.             ELSE
  1628.                 =FWRITE(bio, ',')
  1629.             ENDIF        
  1630.  
  1631.             IF NOT EMPTY(TRIM(Desig1))
  1632.                 =FWRITE(bio, '"'+TRIM(Desig1)+'",')
  1633.             ELSE
  1634.                 =FWRITE(bio, ',')
  1635.             ENDIF        
  1636.  
  1637.             IF NOT EMPTY(TRIM(Desig2))
  1638.                 =FWRITE(bio, '"'+TRIM(Desig2)+'",')
  1639.             ELSE
  1640.                 =FWRITE(bio, ',')
  1641.             ENDIF        
  1642.  
  1643.             IF NOT EMPTY(TRIM(Desig3))
  1644.                 =FWRITE(bio, '"'+TRIM(Desig3)+'",')
  1645.             ELSE
  1646.                 =FWRITE(bio, ',')
  1647.             ENDIF        
  1648.  
  1649.             IF NOT EMPTY(TRIM(Career))
  1650.                 =FWRITE(bio, '"'+TRIM(Career)+'",')
  1651.             ELSE
  1652.                 =FWRITE(bio, ',')
  1653.             ENDIF        
  1654.  
  1655.             IF NOT EMPTY(TRIM(Price_fr))
  1656.                 =FWRITE(bio, '"'+TRIM(Price_fr)+'",')
  1657.             ELSE
  1658.                 =FWRITE(bio, ',')
  1659.             ENDIF        
  1660.  
  1661.             IF NOT EMPTY(TRIM(Price_to))
  1662.                 =FWRITE(bio, '"'+TRIM(Price_to)+'",')
  1663.             ELSE
  1664.                 =FWRITE(bio, ',')
  1665.             ENDIF        
  1666.  
  1667.             IF NOT EMPTY(TRIM(Pref))
  1668.                 =FWRITE(bio, '"'+TRIM(Pref)+'",')
  1669.             ELSE
  1670.                 =FWRITE(bio, ',')
  1671.             ENDIF        
  1672.  
  1673.             IF NOT EMPTY(TRIM(Referal1))
  1674.                 =FWRITE(bio, '"'+TRIM(Referal1)+'",')
  1675.             ELSE
  1676.                 =FWRITE(bio, ',')
  1677.             ENDIF        
  1678.  
  1679.             IF NOT EMPTY(TRIM(Referal2))
  1680.                 =FWRITE(bio, '"'+TRIM(Referal2)+'",')
  1681.             ELSE
  1682.                 =FWRITE(bio, ',')
  1683.             ENDIF        
  1684.  
  1685.             IF NOT EMPTY(TRIM(Referal3))
  1686.                 =FWRITE(bio, '"'+TRIM(Referal3)+'",')
  1687.             ELSE
  1688.                 =FWRITE(bio, ',')
  1689.             ENDIF        
  1690.  
  1691.             IF NOT EMPTY(TRIM(Referal4))
  1692.                 =FWRITE(bio, '"'+TRIM(Referal4)+'",')
  1693.             ELSE
  1694.                 =FWRITE(bio, ',')
  1695.             ENDIF        
  1696.  
  1697.             IF NOT EMPTY(TRIM(ERCPaper))
  1698.                 =FWRITE(bio, '"'+TRIM(ERCPaper)+'",')
  1699.             ELSE
  1700.                 =FWRITE(bio, ',')
  1701.             ENDIF        
  1702.  
  1703.             IF NOT EMPTY(TRIM(Welcomekit))
  1704.                 =FWRITE(bio, '"'+TRIM(Welcomekit)+'",')
  1705.             ELSE
  1706.                 =FWRITE(bio, ',')
  1707.             ENDIF        
  1708.  
  1709.             IF NOT EMPTY(TRIM(Relocations))
  1710.                 =FWRITE(bio, TRIM(Relocations)+',')
  1711.             ELSE
  1712.                 =FWRITE(bio, ',')
  1713.             ENDIF        
  1714.  
  1715.             IF NOT EMPTY(TRIM(Picture))
  1716.                 =FWRITE(bio, '"'+TRIM(Picture)+'",')
  1717.             ELSE
  1718.                 =FWRITE(bio, ',')
  1719.             ENDIF        
  1720.  
  1721.             IF NOT EMPTY(TRIM(EntryDate))
  1722.                 =FWRITE(bio, TRIM(EntryDate)+',')
  1723.             ELSE
  1724.                 =FWRITE(bio, ',')
  1725.             ENDIF        
  1726.  
  1727.             IF NOT EMPTY(TRIM(BioSubs))
  1728.                 =FWRITE(bio, TRIM(BioSubs)+',')
  1729.             ELSE
  1730.                 =FWRITE(bio, ',')
  1731.             ENDIF        
  1732.  
  1733.             =FWRITE(bio, '"'+Unique+'.pcx"')
  1734.             
  1735.             IF NOT EMPTY(TRIM(Info))
  1736.                 =FPUTS(bio, '"'+TRIM(Info)+'",')
  1737.             ELSE
  1738.                 =FPUTS(bio, ',')
  1739.             ENDIF        
  1740.             
  1741.         ENDIF
  1742.         
  1743.       
  1744.     IF Count % 2000 = 0
  1745.         ? Count
  1746.     ENDIF
  1747.  
  1748.     
  1749. ENDDO
  1750.  
  1751. ? Count
  1752.  
  1753. DO MKETBL.prg
  1754. DO RECORD.prg
  1755.